Public Class ParametroEstimativa

    Private strIdUsuario As String
    Private strIdEstimativa As String
    Private strIdAtividade As String
    Private strRodada As String

    Public Sub New(ByVal strIdUsuario As String, ByVal strIdEstimativa As String, _
                    ByVal strIdAtividade As String, ByVal strRodada As String)

        Me.strIdEstimativa = strIdEstimativa
        Me.strIdEstimativa = strIdEstimativa
        Me.strIdAtividade = strIdAtividade
        Me.strRodada = strRodada
    End Sub


    Public Sub setIdUsuario(ByVal IdUsuario As String)
        strIdUsuario = IdUsuario
    End Sub

    Public Function getIdUsuario() As String
        getIdUsuario = strIdUsuario
    End Function

    Public Sub setIdEstimativa(ByVal IdEstimativa As String)
        strIdEstimativa = IdEstimativa
    End Sub

    Public Function getIdEstimativa() As String
        getIdEstimativa = strIdEstimativa
    End Function

    Public Sub setIdAtividade(ByVal IdAtividade As String)
        strIdAtividade = IdAtividade
    End Sub

    Public Function getIdAtividade() As String
        getIdAtividade = strIdAtividade
    End Function

    Public Sub setRodada(ByVal Rodada As String)
        strRodada = Rodada
    End Sub

    Public Function getRodada() As String
        getRodada = strRodada
    End Function

End Class
